home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / util / rexx / Traduci.lha / Traduci.thor < prev    next >
Encoding:
Text File  |  1980-10-01  |  837 b   |  28 lines
  1. /*                     Traduttore x Gold-ED Inglese-Italiano
  2.                   Script Arexx Creato da Tiziano Gogna "RAYMAN"
  3.                     il 1 Ottobre 2000 su Amiga 1200 060
  4. */
  5. address 'THOR.01'
  6. options results
  7. 'SAVEMESSAGE CURRENT FILENAME=Ram:MSG'                    /* Salvataggio msg in Ram  */
  8. if ~show('P','ITAL') then                           /* Caricamento  ITAL       */
  9.         DO
  10.         address command "Dh0:Tools/Ital/Ital"
  11.         address command "waitforport ITAL"
  12.         END
  13. address 'ITAL'
  14. 'CLEAR'
  15. "Ram:MSG"                                           /* Traduzione msg in Ram   */
  16. QUIT
  17. address 'THOR.01'
  18.  
  19.  
  20.  
  21. ADDRESS COMMAND "GED Ram:MSG.TRA"          /* Lettura del messaggio   */
  22. ADDRESS COMMAND "Delete >nil: Ram:msg"              /* Cancellazione messaggi  */
  23. ADDRESS COMMAND "Delete >nil: Ram:msg.tra"
  24.  
  25.  
  26.  
  27. exit
  28.